REPL C->REC_ORIGIN WITH REC,C->DATE_CUR WITH DATE(),C->PAT_FILCOD WITH G->PAT_FILCOD,C->PAT_NAME WITH G->PAT_NAME
REPL C->PAT_F_NAME WITH G->PAT_F_NAME,C->PAT_M_INIT WITH G->PAT_M_INIT,C->PAT_DOB WITH G->PAT_DOB,C->PAT_NATIO WITH G->PAT_NATIO
REPL C->PAT_SEX WITH G->PAT_SEX,C->BLOOD_GRP WITH G->BLOOD_GRP,C->BLOOD_RHE WITH G->BLOOD_RHE,C->HOM_ADD WITH G->HOM_ADD
REPL C->HOM_CITY WITH G->HOM_CITY,C->HOM_COUNT WITH G->HOM_COUNT,C->HOM_TEL WITH G->HOM_TEL,C->JOB_POSIT WITH G->JOB_POSIT,C->JOB_CORP WITH G->JOB_CORP
REPL C->JOB_CRPCOD WITH G->JOB_CRPCOD,C->JOB_ADD1 WITH G->JOB_ADD1,C->JOB_ADD2 WITH G->JOB_ADD2,C->JOB_CITY WITH G->JOB_CITY
REPL C->JOB_COUNT WITH G->JOB_COUNT,C->JOB_TEL1 WITH G->JOB_TEL1,C->HEALTHLINE WITH G->HEALTHLINE,C->HL_PERIOD WITH G->HL_PERIOD
REPL C->HL_START WITH G->HL_START,C->HL_END WITH G->HL_END,C->HL_DENT WITH G->HL_DENT,C->HL_FEE WITH G->HL_FEE
REPL C->AEA_MEMBER WITH G->AEA_MEMBER,C->AEA_PROGR  WITH G->AEA_PROGR,C->AEA_ENDATE WITH G->AEA_ENDATE,C->AEASOS_PER WITH G->AEASOS_PER
REPL C->AEASOS_FAM WITH G->AEASOS_FAM,c->fam_relper with G->fam_relper,C->FAM_PERCOD WITH G->FAM_PERCOD,C->PAT_CODCRP WITH G->PAT_CODCRP
REPL C->PAT_CODCRE WITH G->PAT_CODCRE,C->PAT_CODDAT WITH G->PAT_CODDAT,C->PAT_CODTYP WITH G->PAT_CODTYP
REPL C->DATE_APP WITH G->DAT_APP,C->HOUR_APP WITH G->HOUR_APP,C->DOC_COD_AP WITH G->DR_CODE,C->DOC_NAM_AP WITH G->DR_APP
REPL C->MED_SCHEME WITH G->MED_SCHEME,C->MDS_ENDATE WITH G->MDS_ENDATE,C->MDS_NBER WITH G->MDS_NBER
IF PATNAT='JAPANESE'
   REPL C->PAT_JAPAN WITH .T.
ENDIF
IF CMS
   REPL C->PAT_CMS WITH .T.
   REPL C->CMS_EDAT WITH INSVAL
ENDIF
RETURN